home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / as tut (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  196 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 100 goto1910
  3. 110 rem
  4. 120 rem
  5. 130 rem
  6. 140 dimw(99,2):lv=0
  7. 150 w(4,1)=33:w(4,2)=5:forb=6to13:w(b,1)=21:w(b,2)=55:next
  8. 160 w(82,1)=129:w(82,2)=250:w(50,1)=129:w(50,2)=250
  9. 170 w(99,1)=21:w(99,2)=250
  10. 180 w(1,1)=17:w(1,2)=50:sl$="                                       "
  11. 190 w(3,1)=65:w(3,2)=15:w(5,1)=85:w(5,2)=30:w(26,1)=129:w(26,2)=25
  12. 200 x=2:y=1:cl=13:ch=82
  13. 210 print"[147]":poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.
  14. 220 fort=54272to54295:poket,0:next:poke54296,15:iflv>5thenlv=5
  15. 230 ad=1*16+0:sr=15*16+2
  16. 240 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  17. 250 goto1210
  18. 260 print"[144]";:rempoke53265,peek(53265)and239
  19. 270 print"[147]":poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.
  20. 280 x=2:y=1:cl=13:ch=82:n=n+1
  21. 290 ml=1:loadf$,dv,1
  22. 300 ml=2:loadf$+"/c",dv,1
  23. 310 ml=3:on n goto1310,1390,1500,1560,1630,1710,1770,1820
  24. 320 stop
  25. 330 ifa$="d"thenprint""a$;:goto420
  26. 340 ifasc(a$)>69andasc(a$)<78thenprint"[151]"a$;:goto420
  27. 350 ifa$="p"thenprint"[144]"a$;:goto420
  28. 360 ifa$="z"thenprint""a$;:goto420
  29. 370 ifa$="[210]"thenprint"[153]"a$;:goto420
  30. 380 ifa$="[163]"thenprint""a$;:goto420
  31. 390 ifa$="[209]"thenprint"[154]"a$;:goto420
  32. 400 print"[153]"a$;:ifa$=chr$(32)then65535
  33. 410 ifa$=chr$(13)then440
  34. 420 ci=asc(a$)-64
  35. 430 poke54283,w(ci,1):poke54280,w(ci,2):poke54283,abs(w(ci,1)-1):goto65535
  36. 440 next:close2:goto530
  37. 450 close2:ifst=64then530
  38. 460 print"[144]":forg=1to7:printsl$:next
  39. 470 poke53265,peek(53265)or16:print"  we're sorry...your file may not be"
  40. 480 print"loaded as commanded.  please check disk"
  41. 490 print"in drive and press fire to try again..."
  42. 500 print"or consult instruction manual.thank you":printsl$:print"[145]";left$(sl$,19);
  43. 510 ifpeek(56320)=127thenpoke646,abs(peek(646)-1):print"o[157]";:goto510
  44. 520 print"":forg=1to7:printsl$:next:goto260
  45. 530 ifx=2thenprint"[144]o":poke53265,peek(53265)or16:goto550
  46. 540 ifx=12thenprint"o":poke53265,peek(53265)or16
  47. 550 fort=54272to54295:poket,0:next:poke54296,15
  48. 560 ad=1*16+0:sr=15*16+2
  49. 570 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  50. 580 ifpeek(56320)<>127thenj=peek(56320):goto620
  51. 590 q=peek(54272+(1023+x+(y*40))):poke54272+(1023+x+(y*40)),abs((q)-1):goto580
  52. 600 ifpeek(56320)=127andd<>2then600
  53. 610 j=peek(56320)
  54. 620 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then730
  55. 630 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then730
  56. 640 ifj=126thenx1=1023+x:x2=y-1:x3=x2*40:ifpeek(x1+x3)=1then730
  57. 650 ifj=125thenx1=1023+x:x3=(y+1)*40:ifpeek(x1+x3)=1orpeek(x1+x3)=32then730
  58. 660 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then730
  59. 670 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then730
  60. 680 ifj=111thenreturn
  61. 690 ifd<>2then600
  62. 700 ifd=2andsm=.thenj=126:goto730
  63. 710 ifsm=1then1140
  64. 720 goto600
  65. 730 ifd=2andj<>126thend=.:sm=.
  66. 740 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  67. 750 ifj=119thenx=x+1
  68. 760 ifj=123thenx=x-1
  69. 770 ifj=126theny=y-1
  70. 780 ifj=125theny=y+1
  71. 790 x3=1023+x+y*40:ch=peek(x3):cl=peek(54272+x3)
  72. 800 poke54283,.:poke54280,.
  73. 810 poke54283,w(ch,1):poke54280,w(ch,2):poke54283,abs(w(ch,1)-1)
  74. 820 ok=peek(x3)
  75. 830 ifch=3thench=5:cl=9
  76. 840 pokex3,15:pokex3+54272,0:ifok<>32andd<>1then600
  77. 850 ifok=2ord=2thend=2:goto1110
  78. 860 ifok=32thend=1:j=125:poke54283,21:poke54280,y*9:poke54283,20:goto730
  79. 870 ifch=99thend=0:goto600
  80. 880 x1=1023+x:x2=y*40:gosub1150:fort=65to73:pokex1+x2,t:forh=1to80:next:next
  81. 890 poke54283,0
  82. 900 ifok=3then940
  83. 910 ifok=19then940
  84. 920 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  85. 930 goto1160
  86. 940 on jp+1 goto960,990,1030,1070,950
  87. 950 end
  88. 960 ifok<>19then1160
  89. 970 ifjp=0thenjp=1:print"[147]you^may^advance^to^the^next^level[146]!"
  90. 980 f$="maze 2":lv=lv+1:forg=1to2500:next:goto200
  91. 990 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  92. 1000 ifok<>19then1160
  93. 1010 print"[147]next^level"
  94. 1020 jp=2:forg=1to2500:next:f$="maze 3":lv=lv+1:goto200
  95. 1030 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  96. 1040 ifok<>19then1160
  97. 1050 print"[147]next^level"
  98. 1060 jp=3:forg=1to2500:next:f$="maze 4":x=12:y=20:ch=1:cl=0:lv=lv+1:goto210
  99. 1070 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  100. 1080 ifok<>19then1160
  101. 1090 print"[147]that's^it![146]":end
  102. 1100 lv=lv+1:jp=4:f$="maze 5":goto200
  103. 1110 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto600
  104. 1120 ifpeek(x3-40)=99thend=.:j=126:goto730
  105. 1130 j=peek(56320):ifj=119orj=123thensm=1:goto620
  106. 1140 j=111:goto680
  107. 1150 poke54283,129:poke54280,5:return
  108. 1160 poke646,abs(peek(646)-1):print" you"
  109. 1170 print"died":x=2:y=1:cl=13:ch=82
  110. 1180 x1=.:x2=.:x3=.:ok=.:d=.:goto530
  111. 1190 print"[147]you were lucky this time[146]!"
  112. 1200 f$="maze 1":lv=lv-1
  113. 1210 print"[147][153]  welcome to the all smiles tutorial [146]o"
  114. 1220 print:print"  i will guide you through a series of"
  115. 1230 print:print"mini-mazes that are similar to ones you"
  116. 1240 print:print" will be traveling through in the real"
  117. 1250 print:print"game where your life depends on knowing"
  118. 1260 print:print" how to play.  you are the [146]o.  you move"
  119. 1270 print:print"     with the joystick in port 2."
  120. 1280 print:print"   press the fire button to begin..."
  121. 1290 ifpeek(56320)=127then1290
  122. 1300 f$="tut 1":gosub260
  123. 1310 print"";
  124. 1320 print"  you may walk on the green floor."
  125. 1330 print"  you may not pass through a brick wall"
  126. 1340 print"  try walking left and right"
  127. 1350 print"  try walking through a wall"
  128. 1360 print"  notice the sound produced when walking"
  129. 1370 print"  when you are done, press fire":gosub530
  130. 1380 f$="tut 2":goto260
  131. 1390 print"[153]";
  132. 1400 print"you may move up & down on black ladders"
  133. 1410 print"if there is a ladder above you, you may"
  134. 1420 print"  move up."
  135. 1430 print"if there is a ladder below you, you may"
  136. 1440 print"  move down."
  137. 1450 print"be careful of ladders that take you up,"
  138. 1460 print"  but won't take you down and vise-versa"
  139. 1470 print"press fire when you are done."
  140. 1480 gosub530
  141. 1490 f$="tut 3":goto260
  142. 1500 print"[153]";
  143. 1510 print"[153]you may move across the dark green
  144. 1520 [153]"  hand-over-hand bars."
  145. 1530 [153]"you may move left & right on them"
  146. 1540 [153]:[153]"press fire when you are finished.":[141]530
  147. 1550 f$[178]"tut 4":[137]260
  148. 1560 [153]"print";
  149. 1570 [153]"printyou may pass through the white doors"
  150. 1580 [153]"once the door has been passed through"
  151. 1590 [153]"  it turns into an impassable wall."
  152. 1600 [153]:[153]"press fire to continue"
  153. 1610 [141]530
  154. 1620 f$[178]"tut 5":[137]260
  155. 1630 [153]"print";
  156. 1640 [153]"printtry jumping onto the waitb."
  157. 1650 [153]"as you move upwards, you may move left &";
  158. 1660 [153]"  right onto platforms and such."
  159. 1670 [153]"experiment with the trampolines"
  160. 1680 [153]:[153]"press fire to go on."
  161. 1690 [141]530
  162. 1700 f$[178]"tut 6":[137]260
  163. 1710 [153]"print";
  164. 1720 [153]"printtry falling from the hand bars."
  165. 1730 [153]"notice you can fall long distances if";
  166. 1740 [153]"   you land on another hand bar."
  167. 1750 [153]:[153]"press fire after testing this out.":[141]530
  168. 1760 f$[178]"tut 7":[137]260
  169. 1770 [153]"print";
  170. 1780 [153]"printnow let's see what happens when you"
  171. 1790 [153]"  die."
  172. 1800 [153]"try jumping to your death."
  173. 1810 [153]"press fire when you are through dying":[141]530
  174. 1820 [153]"loadpress fire button to return to the "
  175. 1830 [153]"all smiles menu"
  176. 1832 [139][194](56320)[178]127[167]1832
  177. 1840 [151]53272,21
  178. 1850 [153]"load":[151]52,160:[151]56,160:[151]53272,([194](53272)[175]240)[176]4:[147]"as menu",dv
  179. 1860 [153]"loadnewcmdcmdcmd"
  180. 1870 [153]"load"[199](34)"all smiles"[199](34)","dv
  181. 1880 [153]"run";
  182. 1890 [151]198,5:[129]t[178]1[164]5:[151]630[170]t,13:[130]:[128]
  183. 1900 [128]
  184. 1910 [139]ml[178]1[167]300
  185. 1920 [139]ml[178]2[167]310
  186. 1930 [139]ml[178]3[167]260
  187. 1940 [139]ml[178]8[167]110
  188. 1950 [151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12
  189. 1960 [139][194](12288)[178]60[167]110
  190. 1970 ml[178]8:[158]57812"parts",dv:[151]780,0:[151]781,0:[151]782,48:[158]65493:[137]5
  191. 1980 [129]i[178].[164]255:[129]j[178].[164]7:[161]#1,a$:[151]12